Shareware Grab Bag/Shareware Grab Bag.iso/003/optmen.arc/LSCRTOP.PRG

Text File | 1987-02-22 | 559 b | 26 lines

*
*
* Display standard title bar at top of screen
*
* Global variables - sday, stitle, sdate, sver
*
* by George Matthews - modified by Anthony T. DeHart - GENIE (ATDEHART)

Parameters mtitle

CLEAR
@ 1,0 TO 1,79 DOUBLE
@ 2,2 SAY sday
@ 3,(80 - LEN(stitle))/2 SAY stitle
@ 4,2 SAY sdate
@ 4,(79 - len(sver)) say sver
@ 5,0 TO 5,79 DOUBLE
STORE INT(LEN(mtitle)) TO msize
STORE (((80 - msize)/2) - 2) TO mstart
STORE ((msize + mstart) + 4) TO mstop
@ 5,mstart TO 7,mstop DOUBLE
@ 6,(80 - LEN(mtitle))/2 SAY mtitle
RETURN

* EOF lscrtop